(functionp): Use byte-code-function-p, not compiled-function-p.

diff --git a/lisp/subr.el b/lisp/subr.el
index 1e894742cdd376d44d3e81c7751c5aaec38d4f5b..308d400ee88bafc6111b1a18bfbf26399705c1e0 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1065,7 +1065,7 @@ configuration."
 
 (defun functionp (object)
   "Non-nil if OBJECT is a type of object that can be called as a function."
-  (or (subrp object) (compiled-function-p object)
+  (or (subrp object) (byte-code-function-p object)
       (eq (car-safe object) 'lambda)
       (and (symbolp object) (fboundp object))))